home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / edit / TSMorph22.lha / Install < prev    next >
Text File  |  1993-09-03  |  4KB  |  215 lines
  1. ; This is the script to install TSMorph
  2. ; $VER: TSMorph-Install 2.2 (3.9.93)
  3.  
  4. (complete 0)
  5.  
  6. (set InstallDir
  7.    (askdir
  8.       (prompt "Where do you want to install TSMorph 2.2?")
  9.       (help @askdir-help)
  10.       (default "Work:")
  11.    )
  12. )
  13.  
  14. (if (> (/ (getversion) 65536) 38)
  15.    (set Kick30 1)
  16.    (set Kick30 0)
  17. )
  18.  
  19. (Set DestDir 
  20.    (tackon InstallDir "TSMorph")
  21. )
  22.  
  23. (Set RexxDir 
  24.    (tackon DestDir "Rexx")
  25. )
  26.  
  27. (Set CursorDir 
  28.    (tackon DestDir "Cursor")
  29. )
  30.  
  31. (Set BrushDir 
  32.    (tackon DestDir "Brush")
  33. )
  34.  
  35. (set @default-dest 
  36.    DestDir
  37. )
  38.  
  39. (makedir
  40.    DestDir 
  41.    (infos)
  42. )
  43.  
  44. (Set Use040
  45.    (= 
  46.       (database
  47.          "cpu"
  48.       )
  49.       68040
  50.    )
  51. )
  52.  
  53. (set Use881
  54.    (askbool
  55.       (prompt "Install 68020/030/68881/2/68040 version")
  56.       (help "There are two versions of the TSMorph-render program. "
  57.             "One requires both a 68020 or 68030 CPU with a 68881 or 68882 FPU or a 68040. "
  58.             "The other should run on any processor.")
  59.       (default Use040)
  60.    )
  61. )
  62.  
  63. (complete 10)
  64.  
  65. (if Use881
  66.    (
  67.       (copyfiles
  68.          (prompt "Copying TSMorph program and data files")
  69.          (help @copyfiles-help)
  70.          (source "")
  71.          (dest DestDir)
  72.          (choices "TSMorph" "TSMorph-render.881" "TSMorph.guide" "TSMorph-prefs")
  73.          (infos)
  74.          (confirm)
  75.       )
  76.       (delete (tackon DestDir "TSMorph-render"))
  77.       (rename (tackon DestDir "TSMorph-render.881")
  78.               (tackon DestDir "TSMorph-render")
  79.       )
  80.       (delete (tackon DestDir "TSMorph-render.info"))
  81.       (rename (tackon DestDir "TSMorph-render.881.info")
  82.               (tackon DestDir "TSMorph-render.info")
  83.       )
  84.    )
  85.    (copyfiles
  86.       (prompt "Copying TSMorph program and data files")
  87.       (help @copyfiles-help)
  88.       (source "")
  89.       (dest DestDir)
  90.       (choices "TSMorph" "TSMorph-render" "TSMorph.guide" "TSMorph-prefs")
  91.       (infos)
  92.       (confirm)
  93.    )
  94. )
  95.  
  96. (if Kick30
  97.    (tooltype
  98.       (dest (tackon destdir "TSMorph.guide"))
  99.       (setdefaulttool "MultiView")
  100.    )
  101. )
  102.  
  103. (complete 30)
  104.  
  105. (makedir
  106.    RexxDir
  107.    (infos)
  108. )
  109.  
  110. (copyfiles
  111.    (prompt "Copying example Rexx scripts")
  112.    (help @copyfiles-help)
  113.    (source "Rexx")
  114.    (dest RexxDir)
  115.    (all)
  116.    (infos)
  117.    (confirm)
  118. )
  119.  
  120. (complete 40)
  121.  
  122. (makedir "ENVARC:TSMorph")
  123.  
  124. (copyfiles
  125.    (prompt "Copying Icons to ENVARC:")
  126.    (help @copyfiles-help)
  127.    (source "")
  128.    (dest "ENVARC:TSmorph")
  129.    (choices "ENV/TSMorph/def_points.info"
  130.             "ENV/TSMorph/def_bw16.info"
  131.             "ENV/TSMorph/def_bw256.info"
  132.             "ENV/TSMorph/def_dctv3.info"
  133.             "ENV/TSMorph/def_dctv4.info"
  134.             "ENV/TSMorph/def_ham6.info"
  135.             "ENV/TSMorph/def_ham8.info"
  136.             "ENV/TSMorph/def_iff.info"
  137.             "ENV/TSMorph/def_ilbm.info"
  138.             "ENV/TSMorph/def_jpg.info"
  139.             "ENV/TSMorph/def_ppm.info"
  140.             "ENV/TSMorph/def_prefs.info")
  141.    (confirm)
  142. )
  143.  
  144. (complete 50)
  145.  
  146. (makedir "ENV:TSMorph")
  147.  
  148. (copyfiles
  149.    (prompt "Copying Icons to ENV:")
  150.    (help @copyfiles-help)
  151.    (source "")
  152.    (dest "ENV:TSmorph")
  153.    (choices "ENV/TSMorph/def_points.info"
  154.             "ENV/TSMorph/def_bw16.info"
  155.             "ENV/TSMorph/def_bw256.info"
  156.             "ENV/TSMorph/def_dctv3.info"
  157.             "ENV/TSMorph/def_dctv4.info"
  158.             "ENV/TSMorph/def_ham6.info"
  159.             "ENV/TSMorph/def_ham8.info"
  160.             "ENV/TSMorph/def_iff.info"
  161.             "ENV/TSMorph/def_ilbm.info"
  162.             "ENV/TSMorph/def_jpg.info"
  163.             "ENV/TSMorph/def_ppm.info"
  164.             "ENV/TSMorph/def_prefs.info")
  165.    (confirm)
  166. )
  167.  
  168. (complete 60)
  169.  
  170. (if
  171.    (askbool
  172.       (prompt "Copy GUI files?")
  173.       (help "Select 'Yes' to copy the GUI files. "
  174.             "These files may then be changed to allow you to configure the user interface. "
  175.             "Select 'No' if you do not wish to change the interface.")
  176.    )
  177.    (
  178.       (makedir CursorDir)
  179.       (copyfiles
  180.          (prompt "Copying Pointer files")
  181.          (help @copyfiles-help)
  182.          (source "Cursor")
  183.          (dest CursorDir)
  184.          (all)
  185.          (infos)
  186.          (confirm)
  187.       )
  188.       (complete 70)
  189.       (makedir BrushDir)
  190.       (copyfiles
  191.          (prompt "Copying Gadget files")
  192.          (help @copyfiles-help)
  193.          (source "Brush")
  194.          (dest BrushDir)
  195.          (all)
  196.          (infos)
  197.          (confirm)
  198.       )
  199.    )
  200. )
  201.  
  202. (complete 80)
  203.  
  204. (startup "TSMorph"
  205.    (prompt "Adding assign TSMorph: to " DestDir " in s:user-startup")
  206.    (help @startup-help)
  207.    (command "Assign TSMorph: " DestDir)
  208. )
  209.  
  210. (complete 90)
  211.  
  212. (makeassign "TSMorph" DestDir)
  213.  
  214. (complete 100)
  215.